home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / scrnmasm.arc / TEST.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-11-20  |  687 b   |  33 lines
  1.      DosSeg
  2.      .XList
  3.      .Model Small
  4.      .Stack 100h
  5.      .Code
  6.      Include Exit.Mac
  7.      Include Save.MAC
  8.      Include Restore.Mac
  9.      Include CLS.MAC
  10.      Extrn  WriteCharToScreen:Near,HideCursor:Near
  11.      Extrn  ColorAttribute:Byte,RestoreCursor:Near
  12.      Page  ,132
  13.      .Sall
  14.      .List
  15.      Title Testing New Macros
  16. Start:
  17.      Mov   AX,@Data
  18.      Mov   DS,AX
  19.      Mov   SI,Offset List
  20.      Mov   CX,1000
  21.      Mov   Byte Ptr ColorAttribute,01EH
  22.      Call  HideCursor
  23.      Cls
  24. WriteLoop:
  25.      LodSb
  26.      Call  WriteCharToScreen
  27.      Loop  WriteLoop
  28.      Call  RestoreCursor
  29.      Exit
  30.      .Data
  31. List db 300 dup('ABCDEFG')
  32.      End     Start
  33.